1 PRINT"[147]
2 [153]"DO YOU WISH TO DO :
3 PRINT"1. MULTIMETER
4 [153]"2. MICROMETER SCREW GAUGE
5 GETA:IFA>2ORA<1THEN5
6 ONAGOTO10,3500
10 PRINT"[147]             MULTIMETER
20 [153]"STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$
30 PRINT:PRINT:PRINT
40 GOSUB2000
50 PRINT"   THIS IS THE SCALE OF A MULTIMETER
55 [153]" WHICH CAN BE USED ON THE FOLLOWING
60 PRINT" RANGES :-
65 [153][163]10)"(1) 1000 VOLT
70 PRINTTAB(10)"(2)  250 VOLT
75 [153][163]10)"(3)   50 VOLT
80 PRINTTAB(10)"(4)   10 VOLT
85 [153][163]10)"(5)  500 MILLIAMP
90 PRINTTAB(10)"(6)   25 MILLIAMP
95 [153]"    PRESS ANY KEY TO CONTINUE
100 GETA$: IFA$=""THEN100
110 PRINT"[147]":GOSUB2000
115 PRINT"TEN RANDOM READINGS WILL APPEAR FOR
117 [153]"A MAXIMUM OF 10 SECONDS.
119 PRINT"WRITE DOWN EACH READING AS QUICKLY AS
121 [153]"POSSIBLE. MARKS WILL BE AWARDED FOR
123 PRINT"SPEED AND ACCURACY.
125 [153]"YOU WILL BE ASKED TO TYPE IN YOUR
127 PRINT"RESULTS AT THE END OF THE TEST FOR
129 [153]"SCORING.
130 GOSUB5000
131 PRINT"    PRESS ANY KEY TO CONTINUE
138 [129]I[178]1[164]10
300 S[178][181](6[172][187](1)[170]1)
310 RI[178][181](50[172][187](1)[170]1)
311 [139]RI[179][178]24[167]P(I)[178]0:[137]315
313 R[178](RI[171]24.5):P(I)[178]10
314 [137]319
315 R[178]RI
319 B(I)[178]R
320 [139]S[178]1[167]S$(I)[178]"VOLT":H(I)[178]1000:Q(I)[178]40[172]R:[137]500
330 [139]S[178]2[167]S$(I)[178]"VOLT":H(I)[178]250:Q(I)[178]R[172]10:[137]500
340 [139]S[178]3[167]S$(I)[178]"VOLT":H(I)[178]50:Q(I)[178]R[172]2:[137]500
350 [139]S[178]4[167]S$(I)[178]"VOLT":H(I)[178]10:Q(I)[178]R[173]2.5:[137]500
360 [139]S[178]5[167]S$(I)[178]"MA":H(I)[178]25:Q(I)[178]R:[137]500
370 [139]S[178]6[167]S$(I)[178]"MA":H(I)[178]500:Q(I)[178](R[172]20):[137]500
500 [153]"LOADPROBLEM ";I
505 [153]"METER SET ON ";H(I);" ";S$(I);" RANGE
510 PRINT"":GOSUB2000
520 GOSUB1500
521 PRINT"    PRESS Z WHEN READY
522 T3[178]TI
523 [161]A$:[139]A$[178]"Z"[167]525
524 [139]TI[171]T3[179]600[167][137]523
525 D(I)[178]TI[171]T3
540 [130]I
600 [137]2500
1500 [151]33332,66
1505 [129]J[178]1[164](R[170]5)
1510 T2[178]TI
1520 [139]TI[171]T2[179](J[173]2)[167]1520
1530 [151](33331[170]J),32
1535 [139]J[177]25[167]1560
1540 [151](33332[170]J),66
1550 [130]J
1555 [151](33331[170]J),32
1560 [129]K[178]9[164]1[169][171]1
1562 [139](R[170]K)[177]25[167]1590
1565 T2[178]TI
1567 [139]TI[171]T2[179](4[172](10[171]K))[167]1567
1570 [151](33328[170]R[170]K),32
1580 [151](33327[170]R[170]K),66
1590 [130]K
1600 [129]L[178]1[164]4
1610 T2[178]TI
1620 [139]TI[171]T2[179](L[172]10)[167]1620
1630 [151](33327[170]R[170]L),32
1640 [151](33328[170]R[170]L),66
1645 [139]P(I)[178]10[167][151](33328[170]R[170]L),103
1650 [130]L
1700 [142]
2000 [153]"    0   50  100  150  200  250
2005 PRINT"    0   10   20   30   40   50
2010 [153]"    0    2    4    6    8   10
2015 PRINT"    [194]    [194]    [194]    [194]    [194]    [194]
2020 [153]"    PEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEK
2025 RETURN
2500 PRINT"[147]MARKING
2510 [153]"STR$STR$STR$STR$STR$STR$STR$
2520 PRINT"   TYPE IN YOUR SOLUTION, INCLUDING
2530 [153]"THE UNIT ABBREVIATED AS 'MA' OR 'VOLT' AND PRESS 'RETURN'
2532 PRINT"     PRESS ANY KEY TO CONTINUE
2534 [161]A$:[139]A$[178]""[167]2534
2540 E[178]0:N[178]0
2550 [129]I[178]1[164]10
2560 [153]"LOAD   PROBLEM NO. ";I;".
2570 PRINT"YOUR ANSWER -";
2580 INPUTW$
2590 IFVAL(W$)=Q(I)ANDRIGHT$(W$,2)=RIGHT$(S$(I),2)THEN2700
2600 PRINT"[147]"
2620 PRINT"THE READING ON THE ";H(I);S$(I);" SCALE
2621 [153]"WAS ";Q(I);" ";S$(I)
2622 [153]:[153]:[153]:[153]
2624 [141]2000
2625 [139]P(I)[179]5[167][151](33372[170]B(I)),66:[137]2640
2630 [151](33372[170]B(I)),103
2640 [153]"     PRESS ANY KEY TO CONTINUE
2650 GETA$:IFA$=""THEN2650
2660 GOTO2740
2700 PRINT"THAT IS CORRECT."
2710 T4=TI
2720 IFTI-T4<120THEN2720
2730 E=E+D(I):N=N+1
2740 NEXTI
3000 PRINT"[147]YOU GOT ";N;" READINGS CORRECT OUT OF TEN.
3010 [153]"TAKING SPEED INTO CONSIDERATION THIS
3020 PRINT"MEANS YOUR RATING IS  ";INT(10-E/1200)*N;" %
3040 [153]"     PRESS ANY KEY TO CONTINUE
3050 GETA$:IFA$=""THEN3050
3060 PRINT"[147]DO YOU WISH -
3070 [153]"1.TO DO ANOTHER TEST ?
3080 PRINT"2.TO DO ANOTHER PROGRAMME ?
3090 [161]W:[139]W[177]2[176]W[179]1[167]3090
3100 [145]W[137]10,1
3500 [153]"LOAD":I[178]0:PM[178]101:[141]4000
3530 [151]33305,100:[151]33106,48:[151]33306,52:[151]32905,100:[151]33105,100
3540 [151]32906,53:[151]33307,53
3600 [153]"THIS REPRESENTS THE STEM AND THIMBLE
3602 PRINT"OF A PROPERLY ZEROED HALF MILLIMETRE    PITCH MICROMETER SCREW GAUGE.
3610 [141]5000
3620 [153]"LOAD":I[178]7:[141]4000
3630 [151](33305[170]I),100:[151](23106[170]I),48:[151](33306[170]I),52:[151](32905[170]I),100
3640 [151](32906[170]I),53:[151](33307[170]I),53:[151](33105[170]I),100
3654 [153]"THIS REPRESENTS THE MICROMETER WHEN
3656 PRINT"THE GAP BETWEEN THE ANVIL AND THE
3658 [153]"SPINDLE IS 3.50 MM.
3660 GOSUB5000
3670 GOSUB3700
3680 GOTO3880
3700 Z=(INT((10*RND(1))*100))/100
3701 I=INT(2*Z)
3702 X=INT(100*Z-(INT(Z/.5))*50+.05)
3703 IFX<10THENPM=101:GOTO3710
3704 IFX>=10THENPM=66
3705 IFX>=30THENPM=71
3706 IFX>=40THENPM=101
3708 I=I+1
3710 PRINT"[147]":GOSUB4000
3715 POKE(33184+I),76
3750 FORN=1TO11
3760 M=X+6-N
3770 IFM>=50THENM=M-50:GOTO3790
3780 IFM<0THENM=M+50
3790 IF(INT(M/10))*10=MTHENM2=INT(M/10):M3=1:GOTO3805
3800 IF(INT(M/5))*5=MTHENM2=INT(M/10):M3=2:GOTO3805
3802 GOTO3810
3805 GOSUB3820
3810 NEXTN
3815 RETURN
3820 POKE(32865+I+40*N),100
3825 IFM2=0GOTO3850
3830 PN=48+M2
3840 POKE(32866+I+40*N),PN
3850 PN=43+5*M3
3860 POKE(32867+I+40*N),PN
3870 RETURN
3880 PRINT"NOTE.....
3881 [153]"1. ON THE SPINDLE THE";([181](Z[173].5))[172].5;"IS VISIBLE (OR
3882 PRINT"ABOUT TO BE VISIBLE), WHILE THE";(INT(Z/.5))*.5+.5;"LINE
3883 [153]"CANNOT BE SEEN.
3885 PRINT"2. '";X;"' IS THE LINE ON THE THIMBLE
3886 [153]"OPPOSITE THE LINE ON THE SPINDLE.
3980 PRINT"THE READING IS ";Z;" MM[145][145]"
3988 GOSUB5000
3989 PRINT"[147]DO YOU WISH-
3990 [153]"1. ANOTHER EXAMPLE ?
3991 PRINT"2. A WEE TEST OF YOUR SKILL ?
3992 [153]"3. ANOTHER PROGRAMME ?
3993 GETA:IF A>3ORA<1THEN3993
3994 ONAGOTO3670,5200,1
3995 END
4000 PRINT"[162][162][162][162][162][162]
4010 [153]"SPC(SPC(SPC(SPC(SPC(SPC(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
4020 PRINT"[166][166][166][166][166][166]
4030 [153]"SPC(SPC(SPC(SPC(SPC(SPC(
4040 PRINT"[166][166][166][166][166][166]
4050 [153]"SPC(SPC(SPC(SPC(SPC(SPC(
4060 PRINT"[166][166][166][166][166][166]
4070 [153]"SPC(SPC(SPC(SPC(SPC(SPC(TOTOTOTOTOTOTO
4080 PRINT"[166][166][166][166][166][166]
4090 [153]"SPC(SPC(SPC(SPC(SPC(SPC(
4100 PRINT"[166][166][166][166][166][166]
4110 [153]"SPC(SPC(SPC(SPC(SPC(SPC(
4120 PRINT"[166][166][166][166][166][166]
4130 [153]"SPC(SPC(SPC(SPC(SPC(SPC(TOTOTOTOTOTOTO
4140 PRINT"[162][162][162][162][162][162][146]";
4200 PRINT""
4210 PRINTTAB(16+I)"[145]/[163][163][163][157][157][157][157][140][157]";
4215 PRINT"[163][146][157]";
4220 FORX3=1TO11
4230 PRINT"[204][157]";
4242 NEXTX3
4250 PRINT"[163][146][157]\[164][164][164]
4395 B[178]I
4400 [139]B[178]0[167]4700
4500 [129]B[178]0[164](I[171]1)
4550 [151](32864[170]B),99:[151](33104[170]B),100:[151](33344[170]B),100
4580 [151](33144[170]B),PM
4680 [130]B
4685 [129]B[178]0[164]([181](I[173]2))
4687 [151](33184[170](2[172]B)),PM
4688 [130]B
4689 [151]33224,48:[139]I[177]10[167][151]33234,53
4700 [142]
4750 [151](33145[170]I),100:[151](33184),48
5000 [153]"   PRESS ANY KEY TO CONTINUE
5010 GETA$: IFA$=""THEN5010
5020 RETURN
5200 PRINT"[147]TO TEST YOUR SKILL
5210 [153]"STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$
5220 PRINT"READ THE MICROMETER, AND THEN
5230 [153]"TYPE IN THE READING AND UNIT, AND
5240 PRINT"THEN PRESS RETURN[146] TO SEE IF YOU ARE
5250 [153]"RIGHT.
5255 GOSUB5000
5260 GOSUB3700:N=0:N$="FIRST"
5270 PRINT"YOUR ";N$;" GUESS IS ";:INPUTG$
5275 IFRIGHT$(G$,2)="MM"GOTO5281
5280 PRINT"YOU MUST ALWAYS PUT IN THE  UNIT [146]":GOTO5270
5281 GD=INT(VAL(G$)*100):GF=INT(Z*100)
5282 IFGD=GFTHEN5380
5285 REM**IFVAL(G$)=ZGOTO5380
5286 REM*****PRINTZ;VAL(G$)
5300 N=N+1:ONNGOTO5320,5330,5340
5320 N$="SECOND":GOTO5270
5330 N$="THIRD":GOTO5270
5340 PRINT"[147]YOU NEED TO STUDY AN EXPLAINED EXAMPLE
5350 [153]"AGAIN
5360 FORA=1TO100STEP.2:NEXTA
5370 GOTO3670
5380 R=INT(8*RND(1)+1)
5390 ONRGOTO5391,5392,5393,5394,5395,5396,5397,5398
5391 PRINT"WIZARD SHOW !!!":GOTO6000
5392 PRINT"BANG ON, WHAT!!":GOTO6000
5393 PRINT"BRILLIANT EFFORT !!":GOTO6000
5394 PRINT"QUITE RIGHT      !!":GOTO6000
5395 PRINT"WHACKO HO, OLD SPORT !!":GOTO6000
5396 PRINT"EXCELLENT EFFORT!!":GOTO6000
5397 PRINT"GOOD SHOW, OLD BEAN!!":GOTO6000
5398 PRINT"ABSOLUTELY SPOT ON !!":GOTO6000
6000 GOTO3988
8000 Z=(INT((10*RND(1))*100))/100
8100 PRINTZ
8200 GOTO8000